home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xmodifierkeymap.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
499b
|
10 lines
(herald xmodifierkeymap (env tsys (xlib interface)))
(DEFINE (MAKE-XMODIFIERKEYMAP) (CONS 'XMODIFIERKEYMAPP (MAKE-BYTEV 8)))
(DEFINE (XMODIFIERKEYMAP-MAX_KEYPERMOD X)
(MREF-INTEGER (CHK-XMODIFIERKEYMAPP X) 0))
(DEFINE (XMODIFIERKEYMAP-MAX_KEYPERMOD! X Y)
(SET-MREF-INTEGER! (CHK-XMODIFIERKEYMAPP X) 0 Y))
(DEFINE (XMODIFIERKEYMAP-*MODIFIERMAP X) (MREF-8-U (CHK-XMODIFIERKEYMAPP X) 4))
(DEFINE (XMODIFIERKEYMAP-*MODIFIERMAP! X Y)
(SET-MREF-8-U! (CHK-XMODIFIERKEYMAPP X) 4 Y))